home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 2 / Atari Mega Archive CD - Volume 2.iso / 8bit / cislib_a / ledger.lst < prev    next >
File List  |  1995-04-22  |  6KB  |  133 lines
  1. 100 REM PROGRAM TO COMPUTE CASH VALUE AT CURRENT INTEREST RATE
  2. 105 REM This plan computes ledger statements for universal life
  3. 107 REM by FRED N. BUSH [72327,200]
  4. 110 DIM H$(1):DIM AGE(400),M$(5)
  5. 120 POKE 709,1:POKE 710,119:? "}"
  6. 130 GRAPHICS 2+16:POSITION 1,6:PRINT #6;"CASH STATEMENT OF      POLICY":FOR X=1 TO 2000:NEXT X
  7. 140 GRAPHICS 0:POKE 709,1:POKE 710,119:? "}"
  8. 150 ? "WHAT IS POLICY NUMBER"
  9. 160 INPUT POLNUM
  10. 170 ? "STATEMENT IS FOR MONTH OF"
  11. 180 INPUT M$
  12. 190 GOSUB 740:GOTO 230
  13. 200 ? "CHANGE ANY INPUT"
  14. 210 INPUT H$:IF H$="Y" THEN 230
  15. 220 IF H$="N" THEN GOSUB 810:GOSUB 490:GOTO 400
  16. 230 PRINT "WHAT IS PRIOR MONTH VALUE"
  17. 240 INPUT PRIMON
  18. 250 ? "WHAT IS YEAR"
  19. 260 INPUT YR
  20. 270 PRINT "WHAT IS CURRENT INSURANCE AMOUNT"
  21. 280 INPUT CURRINS
  22. 290 DB=CURRINS
  23. 300 ? "WHAT IS AGE OF INSURED?"
  24. 305 ? "ADD 100 IF M/S"
  25. 306 ? "ADD 200 IF F/NS"
  26. 307 ? "ADD 300 IF F/S"
  27. 310 INPUT AGE:PREM=AGE(AGE)
  28. 320 ? "WHAT IS RATING?":? "IN DECIMAL FORM"
  29. 330 INPUT RATING
  30. 340 GOSUB 870
  31. 350 ? "WHAT IS CURRENT INTEREST RATE IN %"
  32. 360 INPUT I
  33. 370 PRINT "WHAT IS AMOUNT PAID DURING PRIOR MONTH"
  34. 380 INPUT AMTPD
  35. 390 GOSUB 490
  36. 400 PRINT "ANOTHER MONTH?"
  37. 410 INPUT H$
  38. 420 IF H$="N" THEN 480
  39. 430 IF H$="Y" THEN 440
  40. 440 ? "WHAT IS NEXT MONTH"
  41. 450 INPUT M$
  42. 460 GOTO 200
  43. 470 IF H$<>"N" THEN 400
  44. 480 END 
  45. 490 NET=0.925*AMTPD
  46. 500 IF YR=1 THEN 900
  47. 510 MINT=(((PRIMON+NET-1000)*I/1200)+3.2737)-COST*I/1200:GOSUB 920
  48. 520 Y=MINT
  49. 530 Z=INT(MINT*100)
  50. 540 Y=Z/100
  51. 550 MINT=Y
  52. 560 IF PRIMON<1000 THEN GOSUB 880
  53. 570 COST=(((CURRINS/1.0032737-PRIMON)/1000)*COI)
  54. 580 Y=COST
  55. 590 Z=INT(Y*100)
  56. 600 Y=Z/100
  57. 610 COST=Y
  58. 620 ADMIN=0.075*AMTPD
  59. 630 CV=PRIMON+NET+MINT-COST
  60. 640 REM ROUNDOFF CV VALUE DEC. PT.
  61. 650 Y=CV
  62. 660 Z=INT(Y*100)
  63. 670 Y=Z/100
  64. 680 PRINT Y
  65. 690 PRINT CV
  66. 700 PRINT " ";M$;," ";AMTPD;," ";NET;," ";MINT;," ";COST;," ";Y
  67. 710 LPRINT " ";M$;," ";AMTPD;," ";NET;," ";MINT;," ";COST;," ";Y
  68. 720 LPRINT 
  69. 730 RETURN 
  70. 740 LPRINT CHR$(27);CHR$(66);CHR$(2)
  71. 750 LPRINT "          CASH STATEMENT OF POLICY# ";POLNUM
  72. 760 LPRINT :LPRINT :LPRINT :LPRINT 
  73. 770 LPRINT "MO/YR","AMT PD","NET AMT","MONTHLY INT","INSUR COST","CASH VALUE"
  74. 780 LPRINT "                                       "
  75. 790 GOSUB 820
  76. 800 RETURN 
  77. 810 PRIMON=CV:RETURN 
  78. 820 RESTORE 970
  79. 830 FOR I=0 TO 399:READ A:AGE(I)=A:NEXT I
  80. 840 ? "DO YOU WISH A PRINTOUT?"
  81. 850 INPUT H$:IF H$<>"N" THEN FOR I=0 TO 99:LPRINT I,AGE(I);"  ";:NEXT I
  82. 860 RETURN 
  83. 870 COI=RATING*PREM:RETURN 
  84. 880 MINT=(PRIMON+NET-COST)*3.2737E-03
  85. 890 RETURN 
  86. 900 NET=0.925*AMTPD-(35+(0.09*(CURRINS/1000)))
  87. 910 GOTO 510
  88. 920 Y=NET
  89. 930 Z=INT(Y*100)
  90. 940 Y=Z/100
  91. 950 NET=Y
  92. 960 RETURN 
  93. 970 DATA 0.3594,0.13215,0.11302,0.10402,0.09952,0.09615,0.0939,0.09165,0.08996,0.08883
  94. 980 DATA 0.08827,0.08883,0.09221,0.09727,0.10458,0.11246,0.12033,0.12765,0.13383,0.13721
  95. 990 DATA 0.13721,0.13552,0.13383,0.13327,0.13215,0.13158,0.13046,0.13102,0.13327,0.13608
  96. 1000 DATA 0.13890,0.14058,0.14227,0.14452,0.1479,0.1524,0.15915,0.16702,0.17715,0.1884
  97. 1010 DATA 0.20133,0.21483,0.22946,0.24633,0.26490,0.28515,0.30765,0.33352,0.36446,0.39933
  98. 1020 DATA 0.43702,0.47415,0.51352,0.55683,0.60746,0.66708,0.73458,0.80658,0.88196,0.95958
  99. 1030 DATA 1.04171,1.13115,1.23296,1.34883,1.47652,1.6149,1.76227,1.91640,2.07333,2.23421
  100. 1040 DATA 2.4159,2.62852,2.86083,3.11283,3.39183,3.70065,4.03983,4.41165,4.81383,5.23458
  101. 1050 DATA 5.66490,6.11546,6.59977,7.13415,7.73208,8.38852,9.10571,9.87746,10.6194,11.22521
  102. 1060 DATA 11.69433,12.11058,12.66633,13.5399,14.60471,15.47546,16.17577,16.91715,17.67427,18.4449
  103. 1070 DATA 0.35940,0.13215,0.11302,0.10402,0.09952,0.09615,0.0939,0.09165,0.08996,0.08883
  104. 1080 DATA 0.08827,0.08883,0.09221,0.09727,0.10458,0.11246,0.12033,0.12765,0.13383,0.13721
  105. 1090 DATA 0.13721,0.15377,0.15627,0.15836,0.16002,0.16211,0.16461,0.16752,0.17127,0.17544
  106. 1100 DATA 0.18003,0.18503,0.19045,0.19671,0.20462,0.21463,0.22671,0.24213,0.26088,0.28256
  107. 1110 DATA 0.30716,0.33384,0.3626,0.39386,0.42806,0.466,0.5081,0.55482,0.60653,0.66366
  108. 1120 DATA 0.72664,0.79505,0.86931,0.95025,1.0383,1.13470,1.24073,1.35719,1.48455,1.62403
  109. 1130 DATA 1.7765,1.94238,2.12333,2.32107,2.53768,2.77608,3.03928,3.32978,3.64685,3.98676
  110. 1140 DATA 4.345,4.71692,5.09967,5.4976,5.92258,6.38757,6.90619,7.49028,8.143,8.857
  111. 1150 DATA 9.62445,10.43681,11.28617,12.12113,13.0963,14.06747,15.09034,16.17587,17.34343,18.62108
  112. 1160 DATA 20.0458,21.66244,23.5259,25.69963,28.33894,30.88008,32.28071,33.76346,35.27771,36.81896
  113. 1170 DATA 0.31046,0.12540,0.10683,0.10008,0.09615,0.09333,0.09052,0.08827,0.08658,0.08546
  114. 1180 DATA 0.08546,0.08602,0.08658,0.08827,0.09052,0.09108,0.09502,0.10008,0.10627,0.11246
  115. 1190 DATA 0.11921,0.1254,0.12933,0.13158,0.13215,0.13158,0.13102,0.1299,0.12877,0.12821
  116. 1200 DATA 0.1299,0.13271,0.13552,0.13721,0.13721,0.13777,0.14002,0.1434,0.1479,0.15408
  117. 1210 DATA 0.1614,0.1704,0.18108,0.19402,0.20808,0.22383,0.24127,0.26040,0.28065,0.30202
  118. 1220 DATA 0.32621,0.35433,0.3864,0.42127,0.4584,0.49777,0.54108,0.58946,0.64402,0.70533
  119. 1230 DATA 0.77227,0.84483,0.9219,1.00346,1.09121,1.18740,1.29371,1.41071,1.53840,1.67565
  120. 1240 DATA 1.8219,1.97265,2.12902,2.30846,2.51771,2.74946,3.00427,3.28215,3.58083,3.90371
  121. 1250 DATA 4.25246,4.62765,5.03377,5.47421,5.96021,6.48727,7.05202,7.65671,8.28502,8.9499
  122. 1260 DATA 9.6474,10.27908,10.79096,11.26571,11.77027,12.38227,13.12421,13.83858,14.52258,15.22796
  123. 1270 DATA 0.31046,0.1254,0.10683,0.10008,0.09615,0.09333,0.09052,0.08827,0.08658,0.08546
  124. 1280 DATA 0.08546,0.08602,0.08658,0.08827,0.09052,0.09108,0.09502,0.10008,0.10627,0.11246
  125. 1290 DATA 0.11921,0.14294,0.1471,0.15086,0.15377,0.15627,0.15836,0.16002,0.16211,0.16461
  126. 1300 DATA 0.16752,0.17127,0.17544,0.18003,0.18503,0.19045,0.19671,0.20462,0.21463,0.22671
  127. 1310 DATA 0.24213,0.26088,0.28256,0.30716,0.33384,0.36260,0.39386,0.42806,0.466,0.5081
  128. 1320 DATA 0.55482,0.60653,0.66366,0.72664,0.79505,0.86931,0.95025,1.0383,1.1347,1.24073
  129. 1330 DATA 1.35719,1.48455,1.62403,1.7765,1.94238,2.12333,2.32107,2.53768,2.77608,3.03928
  130. 1340 DATA 3.32978,3.64685,3.98676,4.345,4.71692,5.09967,5.4976,5.92258,6.38757,6.90619
  131. 1350 DATA 7.49028,8.143,8.857,9.62445,10.43681,11.28617,12.17113,13.0963,14.06747,15.09034
  132. 1360 DATA 16.17587,17.34343,18.62108,20.0458,21.66244,23.5259,25.69963,27.60633,28.97433,30.38508
  133.